home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / midi / dskchngr.lha / DiskChanger / S / deliremovedisk < prev    next >
AmigaDOS Script File  |  1995-08-15  |  846b  |  21 lines
  1. .key DATABASE/A
  2. .bra {
  3. .ket }
  4. ;----------------------------------------------------------------
  5. ; -DISKREMOVED-Script- make yourself familiar how the script works
  6. ; to create your own (optimized) one. that what i call a "database"
  7. ; is infact only a poor textfile; maybe you can offer me a more
  8. ; complex database, i.e. an arexx script for FinalData or so ?
  9. ;----------------------------------------------------------------
  10. C:Search >pipe:db.{$$} FROM {DATABASE} SEARCH "default:" NONUM
  11. If WARN
  12.   C:Type pipe:db.{$$} >NIL:
  13.   C:RequestChoice >NIL: "Error Message" "{DATABASE} has no default: entry!*NYou MUST provide at least an empty program." "Ok"
  14.   Skip AllOver
  15. EndIf
  16. set progname `c:type pipe:db.{$$}`
  17. echo ".key a,b/f*N.bra <*N.ket >*Necho <b>*N" >T:filter.{$$}
  18. setenv DELIPROGRAM `execute T:filter.{$$} $progname`
  19. Lab AllOver
  20. unset progname
  21.